# Table F1

#####
rm(list=ls(all=TRUE))

library(stargazer)

#### Dataset Original ####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Data Rep")
load("debate_length_coded.Rdata")

## Regression: ----

speech_rate_1 <- lm(words_per_sec ~ gender,
                    data= debate_length_coded)

speech_rate_2 <- lm(words_per_sec ~ gender + factor(session),
                    data= debate_length_coded)


## TABLE F1: Rate of speech by gender ----
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Table")

stargazer(speech_rate_1, speech_rate_2,  
          type = "html", style = "ajps", out = "tableF1.html",
          covariate.labels = c("Woman","Debate: 488"),
          no.space=TRUE,
          dep.var.labels=c("Words per Second"),
          digits=3,
          df = FALSE,
          keep.stat = c("theta", "n"))
